home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
basic
/
fglqbx10.zip
/
15-01.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-06-07
|
751b
|
38 lines
REM $INCLUDE: 'fastgraf.bi'
DEFINT A-Z
Status = SETMEM(-2*(64000+16))
INPUT "Which video mode"; Mode
IF FGtestmode(Mode,0) = 0 THEN
PRINT "Your system does not support that video mode."
STOP
ELSEIF FGtestmode(Mode,3) = 0 THEN
PRINT "Your system does not have enough memory."
STOP
END IF
Original& = FGmemavail
OldMode = FGgetmode
FGsetmode Mode
Mem0& = FGmemavail
Status = FGallocate(1)
Mem1& = FGmemavail
Status = FGallocate(2)
Mem2& = FGmemavail
Status = FGfreepage(1)
Status = FGfreepage(2)
FGsetmode OldMode
FGreset
PRINT "originally ="; Original&
PRINT "after setmode ="; Mem0&
PRINT "after 1st page ="; Mem1&
PRINT "after 2nd page ="; Mem2&
PRINT "at end ="; FGmemavail
END